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EXPLOTACION 


¡O Introducción 


N los temas anteriores 
explicábamos con 
detalle cuáles son los 
pasos a seguir cuan- 
do se necesita reali- 
zar un proyecto infor- 
mático. En este capí- 
tulo vamos a ver las 
diferencias que existen entre dos tipos 
muy comunes de aplicaciones. 

Se puede hacer una clara distinción 
entre aplicaciones, las que están más 
orientadas a campos técnico-científicos 
y las típicas aplicaciones de gestión. 

Los problemas del primer tipo se carac- 
terizan porque el ordenador ejecuta mu- 
chas operaciones y cálculos, sobre un 
número relativamente pequeño de da- 
tos. Las aplicaciones de gestión suelen 
tratar muchos más datos, pero los proce- 


APLICACIONES 
DE GESTION 


APLICACIONES 
TECNICO- 
CIENTIFICAS 


[A Porcentaje de datos y cálculos en cada uno de 
los tipos de aplicaciones. 
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sos tienen pocas operaciones que reali- 
zar. Veamos cada caso separadamente. 


O Aplicaciones técnicas 


Como ya sabemos, las primeras fases 
en todo proyecto informático son: análi- 
sis de viabilidad, análisis funcional y aná- 
lisis orgánico. 

En aplicaciones dirigidas a resolver 
problemas técnicos las dos primeras fa- 
ses no suelen tener tanta importancia 
como en las aplicaciones de gestión. Se 
trata de obtener resultados en función de 
unos datos de entrada; por tanto, cuan- 
do se haya determinado dicha función, 
el análisis está finalizado. 

La mayor complicación en problemas 
de este tipo está a la hora de programar. 
Una vez realizado el análisis y determina- 
das las operaciones que hay que efec- 
tuar sobre los datos, hay que adaptar es- 
tas funciones a las operaciones que el or- 
denador es capaz de ejecutar. 

Sólo pueden realizarse ciertas opera- 
ciones básicas, cuyo número depende 
del ordenador utilizado. Los más sencillos 
pueden ejecutar operaciones de suma, 
resta, movimiento y negación de datos; 
otros más potentes han incorporado a 
su repertorio de instrucciones la multipli- 
cación y división. 

Teniendo en cuenta que en un proble- 
ma técnico los cálculos son mucho más 
complicados que simples sumas o restas, 
la labor de los analistas consiste en bus- 
car métodos de análisis numéricos me- 
diante los cuales una operación compli- 
cada queda reducida a operaciones bá- 
sicas. Esto requiere una fuerte prepara- 
ción matemática del analista. 


LOGARITMOS 
POTENCIAS 


[A Es necesario simplificar las operaciones a reali- 
zar de manera que el ordenador pueda ejecu- 
tarlas. 


Actualmente son más numerosas las fir- 
mas que ofrecen al programador rutinas 
estandar que resuelven estos problemas, 


Resolución de la ecua- 
ción x = b- e“ mediante 
un proceso iterativo. El fi- 
nal del proceso lo marca 
el valor e del error admi- 
tido (precisión). 


proporcionando la correspondencia fun- 
cional requerida. 

Derivado del problema que existe al 
disponer de tan pocas operaciones eje- 
cutables por el ordenador, está la nece- 
sidad de realizar multitud de ¡iteraciones. 

Esto en cuanto a tiempo no es dema- 
siado importante, teniendo en cuenta la 
velocidad de cálculo que poseen los or- 
denadores. El verdadero problema está 
en los errores de cálculo que se apare- 
ce como consecuencia de la limitación 
de espacio de almacenamiento de los 
datos. Hay veces en las que las cantida- 
des que se obtienen tiene un número tan 
grande de cifras que no pueden almace- 
narse en el espacio reservado para ellos. 
Esto se soluciona «tuncando» o redon- 
deando los números. Cuando esta ope- 
ración se realiza una vez, el error puede 
no ser apreciable, pero si el número de 
iteraciones que se realizan es muy gran- 
de el error se irá incrementando en cada 
repetición, por lo que llegará un momen- 
to en que la solución obtenida no sea vá- 
lida. 


SINTACTICOS 
DE CONSTRUCCION 


APROXIMACION DE OPERACIONES 
A LAS DEL JUEGO BASICO 
DISEÑO 


LIMITACION EN LAS CIFRAS 

DATOS PROCEDENTES DE OTROS 
CALCULOS 

REDONDEO Y TRUNCACION 


EN LOS DATOS 


ERRORES DE METODO 


DE CALCULO 


ÚS En todo cálculo de producen errores por diver- 
sas causas. 


La precisión deseada, es decir, el 
máximo error admitido, repercute en el 
número de iteraciones a realizar, y por 
tanto, en el tiempo de proceso. El fin del 
proceso viene determinado por las ca- 
racterísticas de los datos que se desean 
obtener, y por el error máximo admitido. 

En cuanto a los ordenadores utilizados 
en proyectos de este tipo, no tienen por 
qué ser específicos, pero sí se caracteri- 
zan porque los periféricos que utilizan no 
son demasiado rápidos. 

De la misma forma, no existen muchas 
limitaciones a la hora de elegir lenguaje 
de programación. De hecho se utilizan 
muchos lenguajes de alto nivel, aunque 
se consideran más convenientes el BA- 
SIC, FORTRAN, ALGOL y PASCAL. 
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Clasificación de los lenguajes de alto nivel. 


NOMINAS 
MENSUALES 


ARCHIVO 
DE 
NOMINAS 


PROCESO 
DE 
[CLASIFICACION 


ARCHIVO 
CLASIFICADO 


lA Ejemplo de programa de gestión: actualización. 


ARCHIVO 
MAESTRO 
| 


PROCESO 
DE 
CTUALIZACIO 


ARCHIVO 
CLASIFICADO 


m Aplicaciones de gestión 


A diferencia de las aplicaciones técni- 
cas, las de gestión manejan muchos más 
datos, siendo, sin embargo, las operacio- 
nes de tratamiento mucho más sencillas. 

La gran cantidad de informaciones que 
se tratan obligan a tener que agrupar es- 
tos registros y ficheros, incluso a la utiliza- 
ción de bases de datos. 

Las operaciones típicas que se realizan 
en aplicaciones de gestión son: actuali- 
zaciones, modificaciones y consultas. 
Operaciones que sólo afectan a regis- 
tros, añadiendo o borrándolos de los fi- 
cheros. Este tipo de funciones no son arit- 
méticas, pero no debe pensarse que no 
se van a utilizar. 

También, a diferencia de la aplicación 
técnico-científica, las del tipo de ges- 
tion requieren un profundo estudio de las 
tres fases de análisis. 

En la fase de análisis de viabilidad se 
aborda la elección de los problemas o 
aplicaciones a mecanizar y del ordena- 
dor más adecuado. Para ello se analiza 


LISTADO 
DE 
NOMINAS 


ARCHIVO 
ACTUALIZADO 
Ú 


la estructura de la empresa, el volumen 
de datos a tratar y el coste de la meca- 
nización, y con los datos que se obten- 
gan de este estudio se replantea el con- 
tinuar con la mecanización. 

Basándose en los mismos resultados, se 
asignan prioridades a cada una de las 
tareas. Los criterios en los que se debe 
basar una asignación de prioridades son: 

— Referentes al beneficio económico 
de la empresa. En el estudio previo de 
viabilidad se habían hecho cálculos del 
coste y beneficios de cada una de las 
áreas a mecanizar, bueno, pues éste es 
el punto en el que se decidirá cuáles de 
estas aplicaciones van a ser más renta- 
bles y, por tanto, van a tener más priori- 
dad. 

— Referentes al tiempo. Aplicaciones 
como nóminas suelen tener un tratamien- 
to mensual, pero hay otro tipo de aplica- 
ciones, como son las actualizaciones de 
ficheros históricos, en los que las varia- 
ciones no se producen tan a menudo, 
que tienen tratamientos más de tarde en 
tarde. De esta manera, se asigna mayor 
prioridad a trabajos que tengan que eje- 
cutarse más frecuentemente. 

— Referentes a la estructuración de 
los programas. Suelen tener prioridad 
aplicaciones estructuradas sobre las que 
no lo estén, al igual que es conveniente 
mecanizar primero los problemas más 
simples para pasar a los más complejos 
en una fase posterior. 

Por otro lado, en las aplicaciones de 
gestión se necesita tener mucha y bien 
estructurada documentación. Hay que 
pensar que como resultado de las apli- 
caciones se obtendrán documentos e 
impresos de salida con destino a muchas 


ENTRADA 


PRIORIDAD 4 


PRIORIDAD 2 


A En las aplicaciones a mecanizar la asignación 
de prioridades indica que trabajo tendra entra- 


da al sistema primero. 


personas. El diseñar esta documentación 
es un trabajo bastante costoso para los 
analistas, teniendo en cuenta que el per- 
sonal al que debe ser enviada esta do- 
cumentación probablemente no será in- 
formático. 

En cuanto a la selección del ordenador 
más adecuado se debe considerar la re- 
lación entre el coste de alquiler, en su 
caso, y la rentabilidad y ocupación del 
equipo. Además, es necesario prever el 
crecimiento de la aplicación y del siste- 
ma. 

Los lenguajes más utilizados en este 
tipo de aplicaciones son el COBOL y el 
RPG. 


O Algo más 


sobre el 
lenguaje 
ensamblador 


L ASSEMBLER nos per- 
mite la entrada de 
programas en len- 
guaje máquina, al 
igual que lo hacemos 
con un programa BA- 
SIC. Podemos, por 
tanto, alterar, borrar 
o insertar líneas, las cuales van precedi- 
das de su número de línea. 

Veamos cuál debe ser el orden de en- 
trada de datos en una línea: 

1.2) Número de línea. 

2.2) Marca (optativa). Una marca o 
etiqueta es una cadena de caracteres 
que se introduce para ejecutar los saltos 
sin necesidad de decir o calcular la dis- 
tancia de salto ni la dirección de desti- 
no. Simplemente se coloca en la línea a 
la cual queremos que el procesador sal- 
te después de una instrucción BNE Mar- 
ca, por ejemplo. 

3.2) Comando ASSEMBLER y posibles 
operandos. 

4.2) Comentario (opcional). Se intro- 
duce precedido de un punto y coma (;). 

Al ensamblar el programa, el ensam- 
blador calcula automaticamente las di- 
recciones de todas las bifurcaciones, e 
inserta los códigos de los operandos y las 
direcciones asociadas en la memoria. 

También pueden definirse al principio 
del programa las variables que vayamos 
a necesitar dándole un nombre y luego 
referirnos a ellas mediante dicho nombre 
y no mediante el número que contienen. 

Por ejemplo, podemos definir BORDE = 


MAQUINA 6502 


$DO20, y dentro del programa introducir 
STA BORDE e incluso STA BORDE + 1 (que 
sería el fondo). 

Se trata de un ASSEMBLER de dos pasos, 
el primero que memoriza todas las eti- 
quetas, definiciones de variables, etc., y 
el segundo que calcula las conversiones 
adecuadas para que el programa sea 
ejecutable. 

Hay que tener en cuenta que no todos 
los monitores de código máquina permi- 
ten el uso de etiquetas y operaciones 
como las del ejemplo anterior. En este 
caso habrá que calcular el salto o la 
suma aparte y poner el valor final en la lí- 
nea correspondiente. 


'O Manejo de interrupciones 


¡Por fin llegó el momento! Vamos a pro- 
fundizar en las interrupciones del tipo 
IRA, es decir, las evitables, y vamos a 
crear una rutina basada en ellas, la cual 
será ampliamente comentada, para que 
el lector pueda después poner en prác- 
tica sus propias ideas con esta técnica. 

Lo más importante de las interrupcio- 
nes del tipo IRA es que se le puede «de- 
cir» al ordenador que deje de producir- 
las, momento que se aprovecha para 
añadir nuestra propia rutina o cambiar la 
existente. Después se vuelve a poner el 
señalizador de interrupciones, y ya está, 
¡nuestra rutina se está ejecutando 60 ve- 
ces por segundo, aunque no haya nin- 
gún programa en memoria! 

Pero veamos cómo se hace todo esto. 
Es bastante fácil y el resultado puede ser 
espectacular. 

El vector que apunta a la rutina de in- 
terrupt está situado en las posiciones 
$0314 (788) y $0315 (789). 


Este vector suele contener los números 
49 y 234, respectivamente. Mediante el 
cálculo que se explicó en capítulos an- 
teriores se obtiene la dirección de inicio 
de la rutina: 


Dirección = 49 + 256 - 234 = 59.953 ($EA31) 


Pues bien, lo primero que tenemos que 
hacer es cambiar la dirección variando 
los valores del vector para que apunte 
donde nosotros queramos incorporar la 
nueva rutina. Pero antes debemos inha- 
bilitar las interrupciones mediante el co- 
mando SE!. 

Con ello hemos desplazado la rutina 
de interrupt a la posición $COOD en 
hexadecimal. 

A continuación ponemos el señaliza- 
dor de interrupciones CLI, y acabamos 
con RTS. 

Tenemos, por tanto, el siguiente lista- 
do: 

Ahora, a partir de la posición $COOD, 
empezamos la rutina que vamos a tratar. 

Se trata de poner un letrero o encabe- 
zamiento en la primera línea de pantalla 
y que permanezca ahí aunque utilice- 
mos la opción CRL-HOME de borrado. 

Añada a las líneas que hemos explica- 
do las siguientes y habrá terminado la ru- 
tina. 


cooo 78 SEI 


C001 AY OD LDA A$0D 

C003 8D 14 03 STA $0314 
C006 AY CO LDA É$CO 

C008 8D 15 03 STA $0315 
CO0B 58 CLI 

cooc 60 RTS 


COOD A2 27: LDX ¿$27 
COOF AD 86 02 LDA $0286 
CO12 9D 00 D8 STA $D800,X 
C015 BD 3C 03 LDA $033C,X 
C018 9D 00 04 STA $0400,X 
CO1B CA DEX 

co1c 10 Fl BPL $C00F 
COLE 4C 31 EA JMP $EA3I 


Vamos a explicar cada línea de pro- 
grama. 

LDX $27: 40 caracteres en la línea. 

LDA $0286: La posición $0286 = 646 
controla el color de los caracteres en 
pantalla. Este «color» se almacena en el 
ACU. 

STA $D800,X: La posición $D800 corres- 
ponde al color del primer carácter en la 
parte superior izquierda de la pantalla. Al 
ir variando X, se irá dando color a todos 
los caracteres que se encuentren en la 
primera línea de pantalla, según el valor 
que se encuentre en la posición $0286. 

LDA $033C,x: Recoge cada uno de los 
caracteres que van a aparecer en la lí- 
nea a partir de la posición $033C(828) 
cargándolo al ACU según varíe X. 

STA $0400,X: Va colocando cada uno 
de los caracteres anteriores a partir de la 
posición $0400(1024), que es la primera 
correspondiente a la pantalla. 

DEX: Decrementa el contenido del re- 
gistro X en una unidad. 

BPL $COOF: Hará que el programa bifur- 
que mientras el flag N esté desactivado. 
Como el registro X va decrementándose 
desde $27(40), cuando llegue al valor 
«D» el flag N se activará y el programa 
sale del bucle. 

JMP $EA31: Esta instrucción es funda- 
mental y debe estar colocada al final de 
la rutina de interrupción como si fuese 
RTS. Lo que hace es continuar la rutina 
normal de interrupt. 

Por supuesto, cada uno puede colocar 
los datos en la zona de memoria que me- 
jor le parezca, sin más que cambiar la 
instrucción LDA $033C,X, por LDA $Direc- 
ción,X. 

Por otra parte, en los programas ante- 
riores he introducido el desensamblado 
completo, cosa que no hay que hacer al 
teclear el programa. Solamente debe te- 
clearse la dirección de inicio ($C0O0O) 
como lo requiere su monitor, y a conti- 
nuación los comandos y sus operandos 
(las dos columnas de la derecha). 

Ahora ya sólo nos queda probar la ru- 
tina. Para ello, puede introducir un pro- 
grama BASIC para escribir el mensaje. 

Si no le gusta ese mensaje simplemen- 
te cámbielo por otro en la línea 70. Pue- 
de probar también otras variantes en la 
rutina de interrupciones. 

Como puede comprobar, aunque 
borre la pantalla, o haga «NEW» y elimine 
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PRINT CHR$(147) 
20 READ A$:A=A41 
30 IF A$="FIN" THEN SYS 49192:END 

40 IF A$="" THEN POKE 827%4A, 32 

50 IF AS  "" THEN POXE 8274A,ASC(A$)-64 
60 GOTO 20 

70 DATA »»»»»»1,N,T,E,R,R,U,P,C,I,0,N,E,S,, 
I,N,T,E,R,C,E,P,T,A,D,A,S), , , ¿FIN 


el programa en memoria, el letrero per- 
manece ahí inalterable. 

La única manera de desconectarlo se- 
ría pulsando las teclas RUN/STOP y RESTO- 


RE simultáneamente. Para volverlo a co- 
nectar, teclee SYS 49152 en modo direc- 
to. : 

Si desactiva las teclas RUN/STOP y RES- 
TORE con POKE 808,225:POKE 775,200 ya 
no podrá eliminar el letrero, a no ser que 
apague y vuelva a encender su COMMO- 
DORE-64. 

Lo que no debe hacer es, una vez te- 
cleado SYS 49152 ($C000) y puesto el 
letrero en pantalla, volver a introducir el 
mismo comando SYS. No ocurre nada 
irreparable, pero la rutina puede fallar. Si 
es así, apague y vuelva a encender. 

Pruebe a hacer todo lo que se le 
ocurra, siempre se aprende algo nuevo. 
¡Que se divierta! 
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E Emisor- 
receptor 
de morse de venir bien. Nunca podemos saber 


cuándo lo vamos a necesitar y como su 

aprendizaje es muy sencillo, no cuesta 
ABER MORSE es algo nada intentarlo. Con este programa po- 
que siempre nos pue- dremos aprender facilmente a usarlo. 


1000 REM ASS SS SOS IS ISSO ISE ESOS SIS E OSOS? EOS SSI” SOS OOOO OOO JOIOJOJOJO KK 


1010 REM x* EMISOR-LECTOR DE MORSE * 
1020 REM MMS SISSI SISSI III II Ill ollo IOlljoJOIJoJOK 
1030 REM 


1040 REM atalalS ISS S SOSA IOIS SISSI lSISIOIOIOR: 
1050 REM xxddokxkxkxk (Cc) Ed. Siglo Cultural Axxookkk 


1060 REM xxx (c) 1987 AMOO 
1070 REM AaSSMS SR SIS SO lSSlO SOS ISSO OSOS Ak 
1080 REM 


1090 OPTION BASE 1 

1100 DIM C$(28) 

1110 CLS 

1120 FOR F=1 TO 28 

1130 READ C3(F) 

1140 NEXT F 

1150 SCREEN O 

1160 WIDTH 40 

1170 REM 

1180 REM dSSRSSSSS lO SES lSjSSIOjOSIRSIOOIESIOIEOJOK 
1190 REM * CLAVES DE LAS LETRAS * 
1200 REM daSdS SOS jOSSlSS ISO lSlSjdlOIESIOlOJOK 
1210 REM : 

1220 DATA "590000" 

1230 DATA "955500" 

1240 DATA "959500" 

1250 DATA "955000" 

1260 DATA "500000" 

1270 DATA "559500" 

1280 DATA "995000" 

1290 DATA "555500" 

1300 DATA "550000" 
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1310 DATA "599900" 

1320 DATA "959000" 

1330 DATA "595500" 

1340 DATA "990000" 

1350 DATA "950000" 

1360 DATA "999000" 

1370 DATA "599500" 

1380 DATA "995900" 

1390 DATA "595000" 

1400 DATA "555000" 

1410 DATA "900000" 

1420 DATA "559000" 

1430 DATA "555900" 

1440 DATA "599000" 

1450 DATA "955900" 

1460 DATA "959900" 

1470 DATA "995500" 

1480 DATA "595959" 

1490 DATA "559955" 

1500 CLS 

1510 LOCATE 3,6:PRINT "<<<< CODIFICADOR DE MORSE >>>>" 
1520 LOCATE 7,5:PRINT "1-INTRODUCIR TEXTO" 
1530 LOCATE 10,5:PRINT "2-INTRODUCIR CLAVES" 
1540 LOCATE 13,5:PRINT "3-TEST DE TECLADO" 
1550 LOCATE 20,5:PRINT " PULSE SU OPCION ==> 
1560 LET K$=INKEY$ 

1570 IF K$="1" THEN PRINT K$:GOSUB 1620:GOTO 1500 
1580 IF K$="2" THEN PRINT K$:GOSUB 1850:GOTO 1500 
1590 IF K$="3" THEN PRINT K$:GOSUB 2360:GOTO 1500 
1600 GOTO 1560 

1610 REM 

1620 REM hood dd odo dodo od ak ak ok 

1630 REM * INTRODUCIR TEXTO *x 

1640 REM Added jOlSlSO Sa OlolOlolOKOK 

1650 REM 

1660 CLS 

1670 INPUT "Introduce texto= ";A$ 

1680 FOR F=1 TO LEN(A$) 

1690 LET B$=MID$(A$,F,1) 

1700 LET N=ASC(B$)-64 

1710 PRINT B$; 

1720 IF B$=" " THEN FOR P=1 TO 15:NEXT P:GOTO 1810 
1730 LET B$=C$(N) 

1740 FOR C=1 TO 6 


, 


1750 LET G=VAL(MID$(B$,C,1)) 

1760 LET G=G*2 

1770 LET E$=STR$(G) 

1780 IF G<>0 THEN LET F$="03 L"+E$+" C" 
1790 PLAY FS$ 

1800 NEXT C 

1810 NEXT F 


1820 GOSUB 2720 

1830 RETURN 

1840 REM 

1850 REM dodo ROSS ISlOlSISlSlOISlOlOROJOK 

1860 REM * INTRODUCIR CLAVES x 

1870 REM AdsSaSOS SISSI lSlOlSISlOOISIOlOKJOK 

1880 REM 

1890 CLS 

1900 PRINT "Introduce las claves con los signos *-* y ?.”? con un espacio entre 1 
etra y letra” 

1910 PRINT "Para separar una palabra de otra porn 2 espacios.Al finalizar el text 
ODO 

1920 LE? C=1 

1930 FOR F=6 TO 18 

1940 LET F$="" 

1950 LET ES="" 

1960 FOR R=1 TO 4 


1970 


IF MID$(C$(C),R,1)="9" THEN LET F$=F$+"-":ELSE IF MID$(C$(C),R,1)="5" 


THEN LET F$=F$+"." 


1980 
="5" 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 


2220 


2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
23 TO 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 


IF MID$(C$(C41),R,1)="9" THEN LET E$=E$+"-":ELSE IF MID$(C$(C+1),R,1) 
THEN LET £$=E$+"." 
NEXT R 
LOCATE F,1:PRINT CHR$(C+64);CHR$(175);" ";F$, CHR$(C+61);CHR$(175);" ";E$ 
LET. 0042 
NEXT F 
PRINT ".";CBRS(175);" “¡2 
PRINT "?":CORSCIIBD 5" Mm. o 
PRINT:PRINT 
INPUT “INTRODUCE EL TEXTO: ";A$ 
CLS 
LETS" 
FOR F=1 TO LEN(A$) 
LET S$=S$+MID$(A$,F, 1) 


IF MID$(A$,F,1)=" ” THEN GOSUB 2180:LET S$="" 
IF MID$(A$,F,2)="  "” THEN PRINT " ”; 
IF MID$(A$,F,1)="+" THEN GOSUB 2180:GOSUB 2720: RETURN 
NEXT F 
GOSUR 2840 
RETURN 
REM 


REM MORSOORSIORNISlOlOlOIOIO Ok 
REM * BUSCA CLAVES * 
REM AMSSSOSlOlSlS OOOO KO 


REM 
LET W$="" 
FOR C=1 TO LEN(S38) 
IF MID$(S$,C,1)="-" THEN LET W$=W$+"9" 
IF MID$(S$,C,1)="." THEN LET W$=W$+"5" 
NEXT C 


LET Q$="000000" 
LET W$=W$+MID3(Q$,1,6-J.EN(W$)) 
IF W$-"559955" THEN PRINT "?"”";: RETURN 
IF W$="595959" THEY PRINT ".";:RETURN 
FOR -S=1 TO 26 
IF W$=C$(C) THEN PRINT CHR$(64+C); 
NEXT C 
RETURN 
REM 
REM ARSS SOS IlSlO Olla kok 
REM * TEST DE TECLADO * 
REM AS SSSS SSI lSlOlOIOISIOlOKOk 
REM 
CLS 
PRINT " Pulsa *-* para producir la raya (-)" 
PRINT " Pulsa *.* para producir el punto (.)" 
PRINT " Pulsa ENTER para imprimir letra" 
PRINT " Pulsa ESPACE para poner espacios" 
PRINT " Pulsa ESC para acabar" 


PRINT 

GOSUB 2840 

LOCATE 10,1 

PRINT "===> "; 

LET S$="" 

LET K$=INKEY$ 

IF K$="-" THEN PLAY "03 L20 C":LET S$=S$+"5" 
IF K$="." THEN PLAY "03 L25 C":LET S$=S$+"9" 


IF K$=CHR$(27) THEN RETURN 

IF K$=CHR$(13) THEN GOSUB 2590:LET S$="" 
IF K$=" " THEN PRINT " ”; 

GOTO 2510 

REM 

REM ASSSSS OSOS OSO SOS SSI O OJO Kak 

REM * CODIFICAR PULSACIONES * 

REM O ASSS ISSN SOS O O iSSiSiO Sl lO O JOK 

REM 


1. PROGRAMAS 


LET Q$="000000" 

LET S$=S$+MID$(Q$, 1, 6-LEN(S$)) 

Ma 7 RETURN 
THEN PRINT "?";: RETURN 


IF S$="595959" THEN PRINT 

IF S$="559955" 

FOR F=1 TO 26 : 
IF C$(F)=S$ THEN PRINT CHR$(64+F); 

NEXT F 

RETURN 

REM 

REM ASSRISISSISIOISOIOIORSIOIOISOIORPIOIOIOK 

REM + FINAL DE LA OPCION + 

REM ROSSO OO IOIORIOIOROK: 

REM E 

LOCATE 21,25 


PRINT "PULSA UNA TECLA PARA TERMINAR. * 


LET K$=INKEYS 

IF K$="" THEN GOTO 2780 
LOCATE 21,25 

PRINT SPACE3(40) 

RETURN 

REM 

REM A O O OOOO OOOO 
REM + CONTINUAR LA OPCION * 
REM AROS RSIOROISIOIPISIOIOJO: 
REM 

LOCATE 21,25 


PKINT "PULSA (NA TECLA PARA CONTINUAR. ” 


LET K$=INKEYS$ 
) IF K$="" THEN GOTO 2900 
LOCATE 21,25 
PRINT SPACE$ (40) 
RETURN 


El programa fue realizado en un IBM pc 
bajo GWBASIC. Por ello, cualquier orde- 
nador que disponga de este dialecto del 
BASIC puede ejecutar este programa sin 
cambios. Para el resto de los ordenado- 
res, se proponen los siguientes: 


AMSTRAD: 
1090 REM 
1150 MODE 
1160 REM 
1510 LOCATE 6,3: PRINT 
“<<<<CODIFICADOR DE 


MORSE> >>>” 

1520 LOCATE 7,5: PRINT “1-INTRODUCIR 
TEXTO” 

1530 LOCATE 10,5: PRINT “2-INTRODUCIR 
CLAVES” 

1540 LOCATE 13,5: PRINT “3-TEST DE 
TECLADO” 

1550 LOCATE 20,5: PRINT “PULSE SU 
DPRAION == *; 


1790 FOR | = 1 TO G: PRINT CHRS(7); 

NEXT | 

2000 LOCATE 1,F: PRINT CHRS (C + 64) 
CHR$(175); “ ”; FS, CHERS(C + 6£ 
CHR$(175); " ”; ES 

2480 LOCATE 1,10 


2520 IF K$ = “—” THEN PRINT CHRS(7): 
LET SO =35+ *9" 
2530 IF K$ = “.” THENPRINT CHRS(7); 


CHRS(7): LET SS =S$ + “9”. 
2760 LOCATE 25,21 
2800 LOCATE 25,21 
2880 LOCATE 25,21 
2920 LOCATE 25,21 


MSX: 


1510 LOCATE 6,3: PRINT 
“<<<<CODIFICADOR DE 
MORSE > > >>” 

1520 LOCATE 7,5: PRINT “1-INTRODUCI 
TEXTO” 


1530 LOCATE 10,5: PRINT “2-INTRODUCIR 
CLAVES” 

1540 LOCATE 13,5: PRINT “3-TEST DE 
TECLADO” 

1550 LOCATE 20,5: PRINT “PULSE SU 
OPCION => ”; 

1790 FOR |= 1TO 6: PRINT CHRS( ); 
NEXT | 

2000 LOCATE 1,F: PRINT CHRS(C + 64); 
CHRS(175); “ "; FS, CHR$ (C + 65); 
CHRS(175); ” ": ES. 

2480 LOCATE 1,10 


2520 IF K$ = “—” THEN PRINT CHRS(7): 
LETS$ =S$ + "5" 
2530 IF KS = “.” THEN PRINT CHRS(7): 


CHR$(7): LET S$ = S$ + “9” 
2760 LOCATE 25,21 
2800 LOCATE 25,21 
2880 LOCATE 25,21 
2920 LOCATE 25,21 


<<<< CODIFICADOR DE MORSE >>>> 


1- INTRODUCIR TEXTO 


Z- INTRODUCIR CLAVES 


3-TEST DE TECLADO 


PULSE SU OPCION ==> 


[A Menú de opciones. 


El programa nos permite tres funciones 
distintas: 


1. Introducir texto. Una vez introduci- 
do el texto, el ordenador nos lo escribirá 
como rayas y puntos y nos mostrará 
cómo suena. 


2. Introducir claves. Nosotros introdu- 
cimos el código Morse y el ordenador lo 
interpreta y nos muestra el texto que he- 
mos escrito. 


3. Test de teclado. Lo utilizaremos 
para familiarizarnmos con el teclado y 
para coger velocidad. 


Ol pesmvtess turcos con top elos, 
0 : A epacios, Al PERO pi: rs: > is 


cl AA > 


ERROR 


===) ESTO ES G 


(A Introducción de código Morse. 


Scroll de atributos para 
Spectrum 


Con este programa en código máqui- 
na podremos hacer SCROLL de la zona 
de atributos (colores) del SPECTRUM en 
cualquiera de las cuatro direcciones. El 
primer programa que vamos a ver, apar- 
te de introducir el código máquina nece- 
sario para que el programa funcione, nos 
hace una demostración. 


110 

120 

130 

140 

150 

160 

170 
1000 
1010 
1020 
1030 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
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ES 
*k 
* SCROLL DE ATRIBUTOS 


k* 
xk 
E EEES 


EEES 


REM x xk 
REM * (c) Ediciones Siglo Cultural * 
REM * * 
REM *x (c) 1987 k 
REM * k 
REM SS lSO OOOO Olalla lalOlO OO JaKaKk 
REM 

PAPER O 

BORDER O 

INK 6 

CLEAR 54999 

PRINT AT 10,10; FLASH 1; "CARGANDO DATAS" 


PRINT AT 12,8; FLASH 1; INVERSE 1; INK 4; "ESPERE UN MOMENTO. ” 


REM 
REM SMS ISSO ISlElSSlMISlOISlOlllOROIOJOK 
REM * LECTURA DEL CODIGO MAQUINA x*x 
REM aaa IS lla lalllofolololajK 
REM 
LET TOT=0 
LET LIN=9040 
FOR I=55000 TO 55164 STEP 15 
LET CHEK=0 
LET LIN=LIN+10 
FOR J=1I TO I+14 
READ A 
LET CHEK=CHEK+A 
POKE J,A 
NEXT J 
READ TOT 
IF TOT<>CHEK THEN GO TO 5000 
NEXT 1 
REM 
REM ao IOlOlOSIOIOIOOJOK 
REM x* * 
REM * DEMOSTRACION x* 
REM x* *k 
REM saSSISISlOlOOlMIOIOIOJOK 


CLS 
OVER 1 
FOR I=0 TO 7 

PAPER 1 

FOR J=0 TO 21 

PRINT AT J,1*3+2;" 

NEXT J 
NEXT 1 
OVER O 
PAUSE 50 
REM 
REM ASSOS OOOO lala lalalala ajalalaolk 
REM * SCROLL A LA IZQUIERDA x* 
REM AMSSSiS SOS dOO aaa aalalalolololok 
REM 
POKE 23300,1 : REM SCROLL A LA IZQUIERDA 
POKE 23301,7 : REM NUMERO DE LINEAS. DESDE LA O A LA 6 
POKE 23302,7 : REM COLOR QUE APARECE EN LA PARTE DERÉCHA 
REM 


2260 
2270 
2280 
2290 
2295 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2735 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
4999 
5000 
5010 
5020 
5030 
5040 
5050 
5060 


FOR I=0 TO 31 
RANDOMIZE USR 55000 
PAUSE 4 
NEXT 1 
PAUSE 50 
REM 
REM dMSISIS SISSI llJOJOIOIOIOIOIOIOJOK 
REM * SCROLL A LA DERECHA * 
REM MMMM SS IS Olla llllJOIOIVIOKOK 
REM 
POKE 23300,2 : REM SCROLL A LA DERECHA 
POKE 23301,12: REM NUMERO DE LINEAS. DESDE LA O A LA 9 
POKE 23302,7 : REM COLOR QUE APARECE EN LA PARTE IZQUIERDA 
REM 
FOR I=0 TO 31 
RANDOMIZE USR 55000 
PAUSE 4 
NEXT I 
PAUSE 50 
REM 
REM dSMSS SIS ISIO ISO lalalOlllVOJlOKKK 
REM * SCROLL HACIA ARRIBA * 
REM SMS SISIOIMISISlSllSllTlTlTlOJOJAK 
REM 
POKE 23300,3 : REM SCROLL HACIA ARRIBA 
POKE 23301,21: REM NUMERO DE LINEAS. DESDE LA O A LA 19 
POKE 23302,7 : REM COLOR QUE APARECE EN LA PARTE INFERIOR 
REM 
FOR I=0 TO 10 
RANDOMIZE USR 55000 
PAUSE 4 
NEXT I 
PAUSE 50 
REM 
REM al lSjSlSlldlOllVJVJAK 
REM * SCROLL HACIA ABAJO * 
REM sMSMSS SISSI lSlOlNlOlOlOJOJOK 
REM 
POKE 23300,4 : REM SCROLL HACIA ABAJO 
POKE 23301,21: REM NUMERO DE LINEAS. DESDE LA O A LA 19 
POKE 23302,7 : REM COLOR QUE APARECE EN LA PARTE SUPERIOR 
REM 
FOR I=0 TO 10 
RANDOMIZE USR 55000 
PAUSE 4 
NEXT I 
PAUSE 50 
REM 
REM *xx*x* REPETICION *x*x 
PAPER O " 
REM 
CLS 
FOR I=0 TO 20 
FOR J=0 TO I 
PRINT ==" is 
NEXT J 
PRINT "SCROLL" 
NEXT 1 
PRINT AT 0,0; 
GO TO 2080 
PAPER 0: STOP 
REM 
REM addSISlS SISSI IMJOJOJOJSlSlOlOlOlojolOK 
REM * ERROR EN LAS LINEAS DATA x 
REM daSSISlS ISSSTE SJOISJOJSJllln look: 
REM 
CLS 
PRINT "HA HABIDO UN ERROR EN LAS DATA” 


1 PROGRAMAS 


PRINT : PRINT 


PRINT "EL ERROR ESTA EN LA LINEA ";LIN 


PRINT : PRINT 

PRINT "REPASA DICHA LINEA” 
PRINT : PRINT 

LIST LIN 

sTOP 

REM 


REM ASSSS OSOS OSOS” ES OSOS OSOS jOOjOOJOJOk 


REM * LINEAS DATA CON EL CODIGO MAQUINA x*x 
IN TES 


REM 


DATA 0,58, 4,91,254,1,40,13,254,2, 40,34,254,3, 40 


DATA 1088 


DATA 62,254, 4, 40,91, 201,33,0,88,58,5,91,79,58,6 


DATA 1070 


DATA 91,6,31,35,94,43,115,35,16,249,119,35, 13,32, 242 


DATA 1156 


DATA 201,33,255,87,17,32,0,58,5,91,71,79,25,16,253 


DATA 1223 


DATA 58,6,91,6,31,43,94,35,115,43,16,249,119, 43,13 


DATA 962 


DATA 32,242,201,33,0,0,17,32,0,58,5,91,71,25,16 


DATA 823 


DATA 253,68,77,33,32,88,17,0,88,237,176,58,6,91,86 


DATA 1230 


DATA 32,18,19,16,252,201,33,0,0,17,32,0,58,5,91 


DATA 774 


DATA 71,25,16,253,68,'77,197,33,0,88,71,25,16,253,229 


DATA 1422 


DATA 25,235,225,193,237,184,58,6,91,6,32,17,0,88,18 


DATA 1415 


DATA 19,16,252,201,0,0,0,0,0,0,0,0,0,0,0 


DATA 488 


Hay que tener mucho cuidado al intro- 
ducir las líneas DATA para no equivocar- 
nos. De todas maneras, si lo hacemos no 
importa, ya que el programa nos dirá en 
qué línea lo hemos hecho. 

Para ejecutar esta rutina hay que po- 
kear una serie de valores en memoria. Es- 
tos son: 

1. Enlaposición 23300 pokearemos la 
dirección en que queremos que se pro- 
duzca el SCROLL según la siguiente tabla: 


1 = SCROLL a la izquierda 
2 = SCROLL a la derecha 
3 = SCROLL hacia arriba 
4 = SCROLL hacia abajo 


2. Enlaposición 23301 pokearemos el 
número de líneas que queremos SCRO- 


Llear. Dicho número puede estar com- 
prendido entre 1 y 24. 

3. Enlaposición 23302 introduciremos 
el atributo que tendrá la línea que que- 
da sin atributos tras el SCROLL. El atributo 
es un número entre 0 y 255 que nos indi- 
ca el color del papel, de la tinta, el brillo 
y el flash de la siguiente manera: 

— Los primeros tres BlTs me dicen la 
tinta. 

— Los BlTs 3, 4 y 5 (los tres siguientes) 
me dicen el papel. 

— El siguiente BIT (el 6) me indica si es 
con brillo (1) o sin él (0). 

— El último BIT informa de si hay FLASH 
(1) o no (0). V 

A continuación incluimos el programa 
fuente para todos aquellos que les inte- 
rese ver cómo está hecho el programa. 


1000 
1010 
1020 
1030 
1040 
1050 


ES 


e * 
e RUE EN ALA. DIS O BEE Er A 
¿k DIM LOS AT BO TOS k 


¡XK xk 


1060 ; 


1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


. 
, 
* 


¡Xk 


e 


1150 ; 


1160 
1170 
1180 
1190 
1200 
1010 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 


1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 


. 


¡k 


EEES 


EEES 


* (C) EDICIONES SIGLO CULTURAL 


*x (C) 1987 


XK >— kk 


E SS 


¿= COMO EL PROGRAMA PUEDE REALIZAR SCROLL = 


= EN LAS CUATRO DIRECCIONES DE LA PANTALLA = 
= TUNEMOS QUE ALMACENAR UN LA POSICION PR = 


3= MEMORIA 23301 LA DIRECCION QUE QUEREMOS = 


QUE TENGA EL SCROLL SEGUN LA TABLA QUE 
= APARECE A CONTINUACION: = 


= SCROLL A LA IZQUIERDA = 
= SCROLL A LA DERECHA = 
SCROLL HACIA ARRIBA = 
= SCROLL HACIA ABAJO = 


1 
Bb 00NAa 
! 


DIR EQU 23300 


. 


¡= 1 Y 24 AMBOS INCLUSIVE. 


= EL NUMERO DE LINEAS QUE QUEREMOS MOVER = 


;= CADA VEZ QUE SE EJECUTE LA RUTINA TENE- = 


= MOS QUE ALMACENARLAS EN LA DIRECCION DE = 
= MEMORIA 23301. = 
= DICHO NUMERO ESTARA COMPRENDIDO ENTRE = 


NUM EQU 23301 


1590 ; 


. 


¡= EL ATRIBUTO QUE TENDRA LA*LINEA QUE SE = 


= QUEDA VACIA TRAS EL SCROLL A DE IR ALMA = 
= CENADO EN LA DIRECCION 233302. = 
= EL ATRIBUTO SERA UN NUMERO ENTRE O Y = 
= 255! =S 


1630 ATTR EQU 23302 


1640 ; 
1650 ; 
A A A 
1670 ;= = 


1680 ; ESTE PROGRAMA ES TOTALMENTE REUBICABLE, = 
1690 ;= POR ELLO, AUNQUE EL PROGRAMA SE REALIZO = 
1700 ;= A PARTIR DE LA DIRECCION 55000, EL USUA- = 
1710 ;= RIO PUEDE ELEGIR LA DIRECCION QUE MAS LE = 
1720 ;= CONVENGA PARA SU PROGRAMA. = 
1730 ;= = 
A A AAA AAA A 
1750 ; 

1760 ; 

1770 , ORG 55000 

1780 ; 

1790 ; 

1800 ASS SOS SOS OOOO JokK 

1810 ASS SOS KOKk 

1820 ¡xorxk PROGRAMA PRINCIPAL xóxotkxX 

1830 3 Ao ROJO ROO O OOO lalola lolololokK 

IO TEE EEES 


1850 ; 

1860 ; 

1870 LD A, (DIR) ; ALMACENAMOS LA DIRECCION DEL SCROLL 
1880 ; 

1890 cp 1 

1900 JR Z, IZQ ; SI ES 1 VAMOS A * IZQ” 

1910 ; 

1920 CP 2 

1930 JR Z, DER ; SI ES 2 VAMOS A *DER” 

1940 ; 

1950 cP 3 

1960 JR Z, ARR ; SI ES 3 VAMOS A *ARR” 

LAO” 

1980 cP 4 

1990 JR Z, ABB ; SI ES 4 VAMOS A *ABB” 

2000 ; 

2010 RET ; SI ES OTRO NUMERO VOLVEMOS AL BASIC 
2020 : 

2030 ; 

2040 AMRSSIS SS S SOS SOS jSOlSjSlO joio look 

2050 ¡* k 

2060 ¡* SCROLL A LA IZQUIERDA xXx 

2070 ¡xk k 

2080 SS S SS SS SES SS ldlS ll” lolo lajoloK 

2090 ; 

21009: 

2110 IZQ LD HL, 22528 ; HL = AREA DE ATRIBUTOS 

2120 LD A, (NUM) ; A = NUMERO DE LINEAS A MOVER 
2130 LD CA ss E =Ub 

2140 LD A, (ATTR) ; A = COLOR DE LA LINEA VACIA 
LISO 

2160 LIN-IZ LD B,31 ; B = NUMERO DE CHR POR LINEA 
ya lg ys E 

2180 CHR-1Z INC HL > ¡Bl HE 2d 

2190 LD E, (HL) ; E = CONTENIDO DE HL 

2200 DEC HL : HL = HL - 1 

2210 LD (HL>,D ; HL = CONTENIDO DE LA POSICION ANT. 
2220 INC HL 5 HL = HL + 1 

2230 D.JNZ CHR-IZ ; SI NO HEMOS TERMINADO CONTINUAMOS 
2240 ; 

2250 LD (BL),A ; PONEMOS EL ATRIBUTO 


2260 INC HL ; HL = HL + 1 


2270 
2280 
2290 
2300 


2310 ; 


2320 ; 


2330 
2340 
2350 
2360 
2370 


2380 ; 


2390 
2400 
2410 
2420 
2430 
2440 


2450 ; 


2460 
2470 
2480 


2490 : 


2500 


2510 ; 


2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 


2670 ; 
2680 ; 


2690 
2700 
2710 
2720 
2730 


2740 ; 


2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 


2840 : 


2850 
2860 
2870 
2880 
2890 
2900 


DEC 6 

JR NZ, LIN-IZ 

RET 
PIAGGIO OOOO OOO OOOO alo iOjokok 
¡k xk 
“Y* SCROLL A LA DERECHA * 
¡X k 
PIO OOOO OOOO OOOO OO Kajokok 
DER LD HL, 2252: 

LD DE, 32 

LD A, (NUM) 

LD B,A 

LD C,A 
SUM-DE ADD HL, DE 

DJNJ SUM-DE 

LD A, (ATTR) 
LIN-DE LD B,31 
CHR-DE DEC HL 

LD E, (HL) 

INC HL 

LD (HL), E 

DEC HL 

DJNZ CHR-DE 

LD (BL),A. 

DEC HL 

DEC S 

JR NZ, LIN-DE 

RET 
ASS SOS OOOO lola laloldld ajo jok 
5% xk 
¡* SCROLL HACIA ARRIBA xXx 
e * 
POSO SOS OOOO aida iO jOIOJOJOK 
ARR . LD HL, O 

LD DE, 32 

LD A, (NUM) 

LD BA 
SUM-AR ADD HL, DE 

DJNZ SUM-AR 

LD B.H 

LD C,L 

LD HL, 22560 

LD DE, 22528 

LDIR 


; UNA LINEA MENOS. C =C- 1 
; CONTINUAMOS SI QUEDAN LINEAS 


; Y SI NO VOLVEMOS AL BASIC. 


; HL = ZONA DE ATRIBUTOS - 1 
; DE = NUMERO DE BYTES POR LINEA 


A = NUMERO DE LINEAS 
BD = 8 
C=A 

; HL = BL + DE 


B=B- 1! IF B<>0 THEN SUM-DE 
B = DIRECCION DE LA ULTIMA LINEA 


A = ATRIBUTO A INTRODUCIR 


B = NUMERO DE CHR POR LINEA + 1 


5 HL = BL - 1 


E = LO QUE HAY EN HL 


“Bb = HB +01 

; GUARDAMOS LO QUE HABIA EN E 

s UL =-BL = 1 

¡ B=B- 1:IF B<>0 THEN CHR-DE 


; PONEMOS EL ATRIBUTO 
; BL = BL - 1 


Cc=C-i 
IF C<>0 THEN LIN-DE 


; VOLVEMOS AL BASIC. 


; HL =0 
; DE = NUMERO DE CHR POR LINEA 


A = NUMERO DE LINEAS A MOVER 


; BL = HL + DE 


B=B- 1:1IF B<>0 THEN SUM-AR 


; HL = NUMERO D BYTES A MOVER 


BC = HL. BC = NUMERO DE BYTES A MOVER 
HL = ORIGEN PARA LDIR 
DE = DESTINO PARA LDIR 


: LD (DE), (HL) : HL=HL+1 : DE=DE+1:BC=BC-1 


a PROGRAMAS 


2910 LD A, (ATTR) 
2920 LD B, 32 
2930 ; 

2940 CHR-AR LD (DE), A 
2950 INC DE 
2960 DJNZ CHR-AR 
2970 ; 

2980 RET 

2990 ; 

3000 ; 

O AS 
3020 ;* * 
3030 ;* SCROLL HACIA ABAJO * 
3040 ;* * 
O ES 
3060 ; 

3070 ; 

3080 ABB LD BL, O 
3090 LD DE, 32 
3100 LD A, (LIN) 
3110 LD B.A 
3120 ; 

3130 SU1-AB ADD HL, DE 
3140 DJNZ SU1-AB 
3150 

3160 ; 

3170 LD B,H 
3180 LD ek 
3190 

3200 PUSH BC 
3210 ; 

3220 LD HL, 22528 
3230 LD B,A 
3240 ; 

3250 SU2-AB ADD HL, DE 
3260 DJNZ SU2-AB 
3270 

3280 ; 

3290 PUSH BL 
3300 ADD HL, DE 
3310 EX DE, HL 
3320 

3330 POP BL 
3340 POP BC 
3350 LDDR 

3360 ; 

3370 LD A, (ATTR) 
3380 LD B, 32 
3390 LD DE, 22528 
3400 ; 

3410 CHR-AB LD (DE),A 
3420 INC DE 
3430 DJNZ CHR-AB 
3440 ; 


; A = ATRIBUTO A INTRODUCIR 
; HB = CARACTERES POR LINEA 


; PONEMOS EL ATRIBUTO 
5 DE = DE + 1 
; B=Bo-1:IF B<>0 THEN CHR-ARR 


; VUELTA AL BASIC 


s:BL=0 
; DE = NUMERO DE CHR POR LINEA 
; A = NUMERO DE LINEAS A MOVER 
A > RN 


s BL = BL + DE 
B= B- 1:IF B<>0 THEN SU1-AB 


; HL = NUMERO DE BYTES A MOVER 


 ¿Bi= H 

:Mo=L 

; BC = NUMERO DE BYTES A MOVER 
; GUARDAMOS BC EN EL STACK 


; HL = PRIMERA DIRECCION DE LOS ATTRIB 
; B = NUMERO DE LINEAS A MOVER 
; HL = BL + DE 
; B=Bo-1:IF B<>0 THEN SU2-AB 
HL = DIRECCION DE LA SEGUNDA LINEA 


; GUARDAMOS HL EN EL STACK 

; HL = BL + DE 

: SWAP HI., DE 

; DE = DIRECCION DE LA PRIMERA LINEA 

; HL = DIRECCION DE LA SEGUNDA LINEA 

; BC = NUMERO DE BYTES A MOVER 

; LD (DE), (HL): DE=DE-1 : HL=HL-1:BC=BC-1 


; A = ATRIBUTO A INTRODUCIR 
; = NUMERO DE CHR POR LINEA 
; DE = DIRECCION DONDE PONER ATRIBUTOS 


; PONEMOS EL ATRIBUTO 
" DE ="DE € 
s B=B-1:IF B<>0 THEN CHR-AB 


; VUELTA AL BASIC 


E Comprobación 
de programas 


NO de los aspectos 
más delicados de la 
puesta en marcha de 
un sistema informáti- 
co es la prueba de 
los programas y sub- 
sistemas que lo for- 
man. En efecto, en 
numerosas ocasiones las tareas a realizar 
por una unidad de tratamiento son rela- 
tivamente sencillas y no es complicado 
comprobar que dicho programa proce- 
sa los datos como está previsto; sin em- 
bargo, hay ocasiones en que los proce- 
sos son complejos, los resultados difícil- 
mente previsibles o el programa de que 
se trata trabaja con los resultados de al- 
gún proceso anterior: en este tipo de si- 
tuaciones el establecer las pruebas a 
que hay que someter al programa (y la 
comprobación de los resultados obteni- 
dos) puede ser sumamente complejo y/o 
tedioso. 

A pesar de ello, es muy importante, en 
la mayoría de los casos, el realizar los 
tests y pruebas necesarios hasta poder 
asegurar que el funcionamiento del pro- 
grama se adecúa a lo que se espera de 
él. 

Por otro lado, además de la comproba- 
ción de la «corrección» del proceso es 
muy conveniente someter los programas 
a otros controles, habrá que asegurarse 
de la «fiabilidad» del sistema (o de la par- 
te de él que estemos considerando en 
ese momento), habrá que tomar cuenta 
y estudiar las «prestaciones» de cada 
módulo, habrá, en fin, que verificar la efi- 
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ciencia de los circuitos externos de flujo 
de la información. 


Al aludir a la fiabilidad de un sistema o 
subsistema, nos referimos a la cualidad 
de control de las actividades que reali- 
za. Por un lado, deben existir suficientes 
procedimientos de comprobación de la 
inexistencia de errores: bien de errores 
que puedan introducirse desde el exte- 
rior, en los datos que se suministran al sis- 
tema (deben comprobarse los márgenes 
dentro de los que han de estar los dife- 
rentes datos de entrada, el tipo de datos 
aportados, el formato de ellos, etc.), bien 
de errores que introduzca el propio pro- 
ceso debidos al tipo inadecuado (erró- 
neo) de datos aportados. 

Por otro lado, deben controlarse de un 
modo automático las operaciones y ma- 
nipulaciones de los diferentes procesos 
y/o archivos que se realizan manualmen- 
te desde el exterior del sistema: pueden 
aparecer resultados erróneos (y muchas 
veces impredecibles) si se pone como fi- 
chero de entrada a un proceso, un archi- 
vo que no es el adecuado (un fichero dis- 
tinto o una versión inadecuada del fiche- 
ro correcto) o si se ejecuta, detrás de un 
programa determinado, una parte in- 
correcta del proceso, que no es la que 
corresponde. 


Es muy importante también el examen 
de las prestaciones de un sistema, aun- 
que usualmente no es un problema que 
se aborde seria y concienzudamente en 
el diseño y prueba de los sistemas (nor- 
malmente, en este tema, es de aplica- 
ción el dicho de que «no nos acordamos 
de Santa Bárbara hasta que truena»). 

Entendemos aquí por «prestaciones de 
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COMPROBACION DE PROGRAMAS 
A. CORRECCION DEL PROCESO 
A.1. PREPARACION DE LOS DATOS 


-—— ENTRADA DE DATOS. 

-— CONTENIDO DEL JUEGO DE ENSAYO 
(muestra o juego completo, casos 
típicos y atípicos, casos aleato- 
rios, volumen de datos, etc.). 

-— GENERACION DE LOS DATOS (a 
partir de los datos de entrada, de 
las tablas de proceso o por gene- 
ración automática). 


A.2. COMPROBACION DE RESULTADOS 


B. CONTROLES COMPLEMENTARIOS 
B.1. FIABILIDAD DEL PROCESO 


— CONTROL DE ERRORES (de datos 
externos o internos). 

== CONTROL DE OPERACIONES MA- 
NUALES (ficheros inadecuados, se- 
cuencia incorrecta de proceso, 
etcétera). 


B.2. PRESTACIONES DE LOS DISTINTOS MO- 
DULOS 
— TIEMPOS DE PROCESO 
— INDIVIDUALES 
— EN LOS DIFERENTES ENTORNOS 
POSIBLES. á 
— TIEMPO DE MANIPULACION 


B.3. EFICIENCIA DE LOS CIRCUITOS DE IN- 
FORMACION. 
— ELIMINACIÓN DE TIEMPOS MUERTOS 
O COMPLEJIDADES INNECESARIAS. 


un sistema» la rapidez con que ejecuta 
los procesos para los que ha sido diseña- 
do. El tiempo total que consume un con- 
junto de programas en ejecutarse es el 
resultado de los tiempos de proceso de 
cada programa más los tiempos de ma- 
nipulación externa de las distintas opera- 
ciones a realizar entre procesos. 

Este tiempo de manipulación entre 
cada programa depende enormemente 
del operador que los realice, del interés 
que ponga en la tarea... y hasta de su es- 
tado de ánimo: normalmente se hace 
una estimación aproximada y promedio, 
aunque en situaciones en que este tiem- 
po es crítico (por el volumen de las ope- 
raciones a realizar o por el poco tiempo 
disponible) puede ser útil llegar a medir 
tiempos y establecer un cronograma 


concreto y preciso que se impone al 
operador. 

La medida del tiempo de proceso con- 
sumido por cada programa no debe 
comportar, por el contrario, demasiadas 
dificultades, normalmente; sin embargo, 
en entornos complejos de trabajo (por 
ejemplo, cuando existen numerosos ter- 
minales trabajando simultáneamente, 
que producen una carga de trabajo muy 
variable dependiendo de la hora del 
día, o cuando los procesos que consu- 
men mucho tiempo de CPU pueden coin- 
cidir o no con el que estamos estudian- 
do), el estudio puede ser más difícil. 

Naturalmente, el tiempo propio de pro- 
ceso del programa no varía con estas cir- 
cunstancias (sino que depende de la 
cantidad y tipo de los datos que ha de 
procesar), pero el tiempo de reloj consu- 
mido desde que comienza el proceso 
hasta que se pueda dar por concluido, sí 
puede ser muy diverso. 

Por esta razón, deben establecerse dos 
tipos de pruebas: unas para evaluar el 
tiempo propio del proceso del programa 
y otras para ver la incidencia de los res- 
tantes procesos que puedan concurrir 
con el que nos interesa, en un momento 
dado. Normalmente, pueden ser extra- 
polables los tiempos de proceso obteni- 
dos con una muestra, para determinar el 
tiempo que se consumirá cuando se rea- 
lice el proceso real: esto simplifica no 
sólo la prueba en sí, sino (lo que es más 
importante) el trabajo de preparación 
de los datos de ensayo; pero es muy im- 
portante cerciorarse de que el volumen 
de datos no hace crecer el tiempo de 
modo no lineal (a veces, incluso, de for- 
ma exponencial), como sucede con la 
mayoría de los procesos de clasificación 
o de comprobación de «todos contra to- 
dos», porque en una situación de este 
tipo es básico realizar la prueba con un 
volumen de datos que sea representati- 
vo, para poder tener la certeza de que 
es válida la estimación obtenida. 


Por último, es necesario evaluar, asimis- 
mo, la eficiencia de los circuitos externos 
de manejo de la información que el sis- 
tema supone, para confirmar que no es- 
tán introduciendo complejidades o tiem- 
pos muertos innecesarios, que invaliden 
o minimicen las ventajas que el sistema 
aporta. 


(CONTINUACION) 


Otras formas 
de la 
instrucción INPUT 


N primer lugar, es po- 
sible leer los valores 
de varias variables 
con una sola instruc- 
ción INPUT. Para ello, 
basta poner sus nom- 
bres separados por 
comas: 


INPUT variable, variable, variable. 


Veamos un ejemplo idéntico al primer 
programa del capitulo anterior: 


10 INPUT X,XZ,XS 
20 PRINT X 

30 PRINT XZ 

40 PRINT X$ 


La única diferencia en la ejecución de 
este programa, respecto al que vimos en 
el capítulo anterior, es que el intérprete 
de BASIC espera recibir en una sola lí- 
nea los valores de las tres variables cu- 
yos nombres aparecen en la instrucción 
INPUT. Dichos valores deben estar sepa- 
rados por comas. Veamos cómo se eje- 
cutaría esta nueva versión de nuestro 
programa: 


RUN 
? 2.5,2.5,2.5 
2.5 
3 
2.5 


TECNICAS 
DE PROGRAMACION 


ENTRADA Y SALIDA POR LA CONSOLA 


Como se ve, el resultado es el mismo, 
aunque los tres valores introducidos han 
sido escritos en una sola línea. 

Otra modificación de la instrucción IN- 
PUT permite definir un mensaje que el in- 
térprete escribirá en la pantalla antes de 
pedir los datos. Esto es muy útil si desea- 
mos que el programa proporcione infor- 
mación utilizada sobre lo que espera de 
él. En un programa donde hay mucho in- 
tercambio de información entre el pro- 
grama y la persona que lo utiliza, esta for- 
ma de la instrucción INPUT puede llegar 
a ser indispensable. 

Veamos un ejemplo: 


10 INPUT "Deme tres valores"”;X,X%,X$ 
20 PRINT X 

30 PRINT X% 
40 PRINT X$ 


Veamos también su ejecución: 


RUN 
Deme tres valores”? 2.5,2.5,2.5 
2.3 

3 
2.5 


Como se ve, el mensaje se coloca de- 
lante de la lista de variables, separado 
de ellas por un punto y coma. Al ejecu- 
tarse, el mensaje aparece delante del 
signo de interrogación, en la misma lí- 
nea. 


Si queremos que el signo de interroga- 
ción desaparezca, bastará separar el 
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mensaje de la lista de variables por me- 
dio de una coma, en lugar de un punto y 
coma, como en el ejemplo siguiente: 


10 INPUT "Deme tres valores: ",X,XZ,X% 
20 PRINT X 

30 PRINT XX 
40 PRINT X$ 


cuya ejecución es: 


RUN 
Deme tres valores: 2.5,2.5,2.5 
2.5 

3 
2.5 


Obsérvese que, en este caso, para que 
aparezca un espacio en blanco de sepa- 
ración entre el mensaje y los datos intro- 
ducidos, dicho espacio en blanco debe 
incluirse explícitamente dentro del men- 
saje. 

Es evidente ahora cómo podría elimi- 
narse el signo de interrogación sin susti- 
tuirlo por mensaje alguno. En efecto: bas- 


tará con utilizar un mensaje nulo (una ca-' 


dena de caracteres sin ningún carácter, 
representada por dos dobles comillas se- 
guidas). Veamos un ejemplo: 


10 INPUT "",X,X%,X$ 
20 PRINT X 

30 PRINT X% 
40 PRINT X$ 


cuya ejecución es: 


Tm Escritura de una línea 
-en la pantalla 


La instrucción BASIC inversa de la ins- 
trucción INPUT tiene la siguiente forma: 


PRINT expresión 


En los capítulos anteriores la hemos uti- 
lizado con frecuencia. Su efecto es hacer 
aparecer el valor de la expresión en la 
posición actual del cursor en la pantalla 
del ordenador. Todos los programas que 
hemos visto en este capítulo y en el an- 
terior pueden servir como ejemplo más 
sencillo de su funcionamiento. 

Obsérvese que PRINT puede aplicarse 
no sólo a una variable, sino también a 
una expresión, como en el último ejem- 
plo del capítulo anterior. 

Al igual que en el caso de INPUT, es po- 
sible escribir en la pantalla el valor de 
más de una expresión, separándolas en- 
tre sí por espacios en blanco, comas o 
punto y coma. El efecto de cada uno de 
estos separadores es ligeramente dife- 
rente. Veamos diversos ejemplos, junto 
con sus ejecuciones correspondientes: 


10 INPUT X,X%,X$ 
20 PRINT X,XZ,X$ 


Cuando se utilizan comas como sepa- 
radores, los valores de las expresiones 
quedan separados por cierto número de 
espacios en blanco. 


10 INPUT X,X%,X$ 
20 PRINT X X% X$ 
RUN 

7 2.5,2.5,2.5 
2.5 32.5 


Cuando se utilizan los espacios en 
blanco para separar las diversas expre- 
siones, los resultados aparecen separa- 
dos únicamente por uno o dos espacios 
en blanco. 


10 INPUT X,XZ,X$ 
20 PRINT X3XZ%3X$ 
RUN 

? 2.5,2.5,2.5 
2.35 32.5 


Si se utiliza el punto y coma como se- 
parador, el resultado es idéntico al ante- 
rior. También puede colocarse un punto 
y coma al final de la línea, en cuyo caso 
quiere decir que no deseamos que el in- 
térprete añada automáticamente un sal- 
to de línea el final del texto que acaba- 
mos de escribir con la instrucción PRINT. 
De esta manera, podremos concatenar 
en la misma línea los textos correspon- 
dientes a varias instrucciones PRINT. Vea- 
mos un ejemplo: 


10 INPUT X,XZ,X$ 
20 PRINT X; 

30 PRINT XZ;5 

40 PRINT X$ 


Se observará que el resultado obtenido 
es el mismo que al utilizar una sola ins- 
trucción PRINT. 

La instrucción 


PRINT 


que no especifica ninguna variable, es- 
cribe sólo un salto de linea (pues no ter- 
mina en punto y coma). Esta instrucción 
puede utilizarse para dar por terminada 
una línea que se ha ido generando suce- 
sivamente (por ejemplo, con varias ins- 
trucciones PRINT, o con una sola situada 
dentro de un bucle). Por ejemplo: 


DIM X(5) 
FOR I=i TOS 
INPUT X(1) 
NEXT 1 
FOR I=i TO 5 
PRINT X(1); 
70 NEXT 1 
80 PRINT 
90 PRINT "mensaje final" 
RUN 


CM 
mensaje final 


mientras que, si elimináramos la instruc- 
ción 80 del programa anterior, obten- 
driamos: 


YY YY YD 
usan Z 


pa 


2 3 4 5 mensaje final 


porque no se habría producido el salto 
de línea, ya que la última instrucción 
PRINT ejecutada (la quinta vez que se 
ejecutó el bucle) terminó en punto y 
coma. 


O Entrada y salida por 
la consola en PASCAL 


En PASCAL, para introducir datos por el 
teclado, puede utilizarse la instrucción 
READLN (en inglés «Read line», que quie- 
re decir «leer linea»). Esta instrucción lee 
un dato del teclado y se lo asigna a la va- 
riable cuyo nombre se escribe entre pa- 
réntesis después de READLN, realizando 
las conversiones de tipo correspondien- 
tes, de una forma muy semejante a la ins- 
trucción INPUT de BASIC. 


Para escribir en la pantalla, existen dos 
instrucciones principales: WRITE, que no 
añade automáticamente un salto de lí- 
nea después de escribir (y corresponde, 
por tanto, a la instrucción PRINT de BASIC 
terminada en punto y coma) y WRITELN, 
que sí lo añade (y corresponde a PRINT 
cuando no termina en punto y coma). 
Tanto en el caso de WRITE como en el de 
WRITELN, lo que se escribe por la panta- 
lla es el valor de la expresión o expresio- 
nes que se colocan entre paréntesis (se- 
paradas por comas) después de la pala- 
bra reservada WRITE O WRITELN. 

Veamos, como ejemplo, la versión en 
PASCAL del último programa que hemos 
escrito en BASIC, junto con su ejecución. 
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program ejemplo; 
var x:zarray[1..5] of integer; 
izinteger; 
begin 
for iz=1 to 5 do 
i readin (x[iJ); 
for iz=1 to 5 do 
write (xtiJ,” 33 
writeln (?”); 
writeln (*mensaje final”) 


Obsérvese el papel de la instrucción 
WRITELN (”), que no hace otra cosa que 
escribir el salto de línea, pues la expre- 
sión entre paréntesis es una cadena de 
caracteres vacía. Si quitáramos la ins- 
trucción, el resultado del programa sería: 


UN 


R 
1 
2 
3 
4 
s 
2 


23 4 5 mensaje final 


Obsérvese también que en PASCAL no 
se añaden automáticamente espacios 
en blanco de separación entre dos nú- 
meros consecutivos, por lo que hay que 
escribirlos explícitamente. 


Entrada y salida 


por la consola en APL 


En el lenguaje APL, la consola se consi- 
dera como una variable más, que se re- 
presenta con un cuadrado (que recuer- 
da la pantalla). Esto significa que para 


realizar una operación de lectura, basta 
con preguntar el valor de dicha variable, 
mientras que para realizar una escritura 
en pantalla basta con asignarle un valor. 
Veamos el ejemplo que realiza el mismo 
papel que el que acabamos de ver en 
el lenguaje PASCAL, junto con su ejecu- 
ción: 


EJEMPLO 


13 x+-D 
12] D-X 
[3] OD*+'mensaje final' 


EJEMPLO 


E E 
Te SS 
mensaje final 


La asignación al cuadrado puede eli- 
minarse si la última operación efectuada 
en esa línea no fue una asignación. Esto 
se cumple en nuestro caso, por lo que el 
programa podría escribirse también así: 


EJEMPLO 
[1] x+-Do 
[2] Xx 
'mensaje final' 


Además, si no se desea que se añada 
automáticamente un salto de línea al fi- 
nal, en lugar del cuadrado se escribe un 
símbolo distinto, un cuadrado superpues- 
to con una comilla: 


EJEMPLO 
[1] xD 
[2] D-X 
[3] 'mensaje final' 
EJEMPLO 


5.2:34 5 
123 4 5mensaje final 


Paquetes 
integrados 


N paquete integrado 
es un conjunto de 
programas que facili- 
ta la realización de 
tareas complejas con 
el ordenador. Estos 
paquetes integrados 
incluyen cuatro pro- 


gramas distintos: 

Procesador de textos. 

Hoja de cálculo. 

Gestor de base de datos. 

Paquetes gráficos. 

Existen muchos paquetes integrados 
que ofrecen además de estos programas 
otros tales como: agenda, calendario, 
comunicaciones, calculadora, etc. 
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Seleccionar opción o pu 
RIC1 


[A Ejemplo de hoja de cálculo. 


APLICACIONES 


En los programas normales, y salvo al- 
gún caso aislado, no era posible relacio- 
narlos. Así tenemos paquetes de gráfi- 
cos incapaces de interpretar los datos 
contenidos en un fichero, o procesado- 
res de textos que no pueden comunicar- 
se con la base de datos, es decir, eran 
absolutamente independientes unos de 
otros. Sin embargo, las tareas que realiza 
una empresa suele incluir normalmen- 
te procesos en los que son necesarios uti- 
lizar todos y cada uno de los programas 
anteriores, empleando además los mismos 
datos. Así, por ejemplo, se empezará a 
realizar unos determinados cálculos con 
la hoja electrónica, para después pasar 
a confeccionar los gráficos relativos a 
esos cálculos, resaltando de esta forma 
algunos aspectos importantes; posterior- 
mente se elabora el informe correspon- 
diente, incluyendo algún que otro gráfi- 


o atravs 


a buir de ninguna a 
es. ¿ilegal y prohibido por la ley). 


Coloque Disco de Sistema 2 en unidad A: y pulse Enter, o Esc para Cancelar. 


lA Paquete integrado integrated 7. 


so APLICACIONES 


co; estos informes quizá haya que man- 
darlos a distintas personas, utilizando 
para ello los datos sobre sus direcciones, 
que figurarán en la base de datos. 

Todas las tareas anteriormente dichas 
se vuelven dificultosas si tenemos que es- 
tar cambiando continuamente de pro- 
grama, con el consiguiente aumento de 
la probabilidad de que se produzcan 
errores. 

Estudiaremos ahora los distintos módu- 
los que incluye un programa integrado. 
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Hoja electrónica 


Este módulo del paquete es el encar- 
gado de realizar todas las operaciones 
matemáticas necesarias, así como rela- 
cionar los distintos datos contenidos en 
los ficheros, efectuar comparaciones, or- 
denaciones, clasificaciones, etc.; una 
hoja de cálculo permitirá además reali- 
zar previsiones sobre los datos conoci- 
dos, y las más avanzadas permitirán tam- 
bién la persecución de objetivos, en los 
cuales se conoce el resultado, pero no 
los datos que conducen a él. Esta hoja 
electrónica es en muchos paquetes inte- 
grados la aplicación central, sobre la 
que se basan el resto de los módulos, 
siendo en algunos casos los otros módu- 
los meras modificaciones de la hoja de 
cálculo. 
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Bases de datos 


Este módulo permite la gestión de los 
datos contenidos en los ficheros, su recu- 
peración, modificación, etc. Una de las 
características de esta base de datos es 
la facilidad con la que se modifica la es- 
tructura de los ficheros sin necesidad de 
alterar toda la estructura de la aplica- 
ción o tarea que se diseñó con el paque- 
te integrado. El módulo incluye un len- 
guaje que facilita extraordinariamente la 
utilización de sus datos. 

Los datos contenidos en los ficheros 
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pueden ser utilizados por el resto de los 
modulos, especialmente por la hoja de 
calculo. 


1 Gráficos 


La función de este módulo es la de in- 
terpretar los datos contenidos en la base 
de datos o en la hoja de cálculo, y repre- 
sentarlos en forma de gráfico. Estos gráfi- 
cos pueden ser de barras, de pastel o tar- 
ta, de líneas, etc., y de dos o tres dimen- 
siones. El módulo es capaz de utilizar 
gran variedad de dispositivos de dibujo, 
desde simples impresoras con capacida- 
des gráficas hasta sofisticados sistemas 
de dibujo llamados plotters. 
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(u Comunicaciones 


Es el módulo encargado de posibilitar 
la comunicación entre nuestro ordena- 
dor y otros exteriores, permitiendo de 
esta forma el traspaso de ficheros, datos, 
documentos, etc., de un ordenador a 


otro, o incluso con una red de ordenado- 
res. Soportan tanto las comunicaciones 
síncronas como las asíncronas a través 
de un modem telefónico. 


(u Agenda 


Con este módulo podemos tener alma- 
cenados todos los teléfonos y direccio- 
nes útiles, siendo accesibles en cual- 
quier momento. En algunos programas 
permite almacenar citas, de tal forma 
que advierte de la proximidad de una de 
ellas, en función de la fecha que se la su- 
ministre. 


Justificación del software 
integrado 


¿Cuáles son las razones por las que 
conviene utilizar un paquete integrado y 
no los programas sueltos? 

En principio si los programas a utilizar 
no van a tener nada en común, resulta re- 
comendable emplear programas inde- 
pendientes, ya que su precio es mucho 
menor, además de ofrecer más posibili- 
dades al tener todos los recursos del or- 
denador dedicados a ellos. 

Sin embargo, puede surgir un problema 
que decida utilizar un paquete integra- 
do: la redundancia de los datos, esto es, 
tener datos repetidos que los utilicen en 
muchas aplicaciones, siendo práctica- 
mente los mismos. Es aconsejable en este 
caso utilizar un paquete integrado que 
evitará tener ficheros que contengan los 
mismos datos. 

En resumen, los paquetes integrados, 
que surgieron como una serie de progra- 
mas interrelacionables, se han converti- 
do en una de las más potentes herra- 
mientas de software del mercado, facili- 
tando la programación de tareas sofisti- 
cadas que de otro modo serían de difícil 
mecanización. 
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E Arboles 
de búsqueda 
(continuación) 


NA vez vistas las prin- 
cipales operaciones 
que se pueden reali- 
zar con los árboles bi- 
narios de búsqueda, 
vamos a realizar, a 
modo de ejemplo, un 
programa en que su 
empleo resulte especialmente indicado. 

Supongamos que, a partir de un texto 
(por ejemplo, un capítulo de un libro), 
queramos obtener una lista ordenada al- 
fabéticamente de todas las palabras 
que figuran en él junto con el número de 
apariciones de cada una. 

En principio, podríamos pensar en al- 
guna estructura de tipo Tabla donde ir 
guardando las sucesivas palabras que 
vayan apareciendo junto con un conta- 
dor de apariciones para cada una. Con 
cada palabra que se fuese detectando 
en el texto habría que buscar primero en 
la tabla para ver si está ya registrada e 
incrementar su contador en caso afirma- 
tivo; si no hubiera aparecido con anterio- 
ridad, la nueva palabra quedaría anota- 
da en la tabla y a su contador se le da- 
ía el valor uno. El hecho de tener que 
buscar en la tabla cada vez implica que, 
por motivos de eficiencia, la tabla debe- 
ría estar ordenada alfabéticamente en 
todo momento, lo que, a su vez, obligaría 
a que, cada vez que se añadiese una 
nueva palabra, ésta se insertase en el lu- 
gar adecuado a base de desplazar un lu- 
gar todas las palabras posteriores y sus 
contadores para dejar hueco. 


El hecho de que esta tarea pueda lle- 
gar a exigir mucho tiempo de ejecución, 
junto con la imposibilidad de saber con 
antelación el tamaño de tabla necesa- 
rio, lleva a la conclusión de que una es- 
tructura de lista encadenada sería mejor 
para resolver nuestro problema, dadas 
las pocas operaciones necesarias para 
insertar un nuevo elemento y su caracte- 
rística de estructura dinámica. 

Las listas encadenadas, sin embargo, 
tienen el inconveniente de que cada vez 
que se busca un elemento hay que em- 
pezar a explorar por el comienzo de la 
lista de elemento en elemento, con lo 
que, en promedio, el número de opera- 
ciones necesario puede ser muy alto. 

Dadas estas consideraciones, resulta, 
por tanto, que un árbol binario de bús- 
queda es una estructura de datos más 
adecuada para resolver nuestro proble- 
ma que las tablas o las listas. 

El tipo de nodo del árbol debería tener 
un campo para guardar la palabra 
correspondiente, campo que actuaría 
de «clave» a la hora de realizar las bús- 
quedas; además, debería haber un cam- 
po numérico para el contador de apari- 
ciones y, lógicamente, dos campos de 
tipo puntero para apuntar a los descen- 
dentes. La definición de los tipos involu- 
crados podría ser: 


type 
Palabra.t = array (1..MaxLong) of char; 
Puntero.t = “Nodo.!t; 


Nodo.!t = record 
Palabra : Palabra.!t; 
Contador : integer; 
Izquierdo, 
Derecho : Puntero.t 
end; 


ss PASCAL 


donde MaxLong sería una constante de- 
finida con anterioridad. 

El procedimiento de inserción en el ár- 
bol sería similar al que conocemos, con 
la particularidad de que, cuando la pa- 
labra ya estuviese anotada, la acción a 
ejecutar sería la de incrementar el con- 
tador correspondiente. Veamos a conti- 
nuación cómo resolver las otras partes 
del programa. 


[MM) Extracción de palabras 
del texto 


Vamos a suponer que el texto se en- 
cuentra almacenado en un fichero de 
disco. Tras abrir el fichero (cosa que en 
el programa haremos según las normas 
del Turbo-Pascal), iremos leyendo las le- 
tras del texto de una en una. 

En un momento dado nos podremos en- 
contrar en dos situaciones distintas: en 
fase de componer una palabra o avan- 
zando entre dos palabras consecutivas. 

Si no nos encontramos en fase de com- 
poner una palabra, la única comproba- 
ción que hay que hacer tras leer cada le- 
tra es ver si hemos llegado al comienzo 
de una nueva palabra, es decir, ver si 
aquélla pertenece al conjunto de carac- 
teres admitidos como posibles letras ini- 
ciales; en caso afirmativo, la letra pasa- 
ría a ser la primera de una nueva pala- 
bra y entraríiamos en fase de composi- 
ción. 

Estando en fase de composición, la 
comprobación que hay que realizar para 
cada letra es la de ver si está incluida o 
no en el conjunto de caracteres admiti- 


program Lexico; 
(x 


dos como posibles integrantes de una 
palabra (conjunto que no tiene por qué 
coincidir con el de iniciales). Si la letra es 
aceptable, hay que añadirla a la nueva 
palabra en fase de composición (com- 
probando antes que no se excede la 
máxima longitud prevista para palabras 
en el programa); en caso contrario, está 
claro que el proceso de composición ha 
terminado y, en nuestro caso, hay que 
guardar la nueva palabra en el árbol. 
Para facilitar posteriormente las compa- 
raciones entre palabras conviene, a me- 
dida que se van ensamblando, pasar las 
letras a minúsculas. 


O Presentación de resultados 


Para presentar los nodos de un árbol 
de búsqueda de manera que aparezcan 
ordenados según el criterio de compara- 
ción utilizado, basta con recorrerlo recur- 
sivamente en orden central. En efecto, 
antes de presentar el contenido de un 
nodo hay que presentar todos los de su 
subárbol izquierdo, pues se encuentran 
por delante; análogamente, sólo tras 
presentar el contenido de un nodo se 
puede pasar a representar el contenido 
de los de su subárbol derecho, al encon- 
trarse éstos por detrás. Al tiempo que se 
recorre el árbol es posible llevar la cuen- 
ta del total de palabras extraídas (suma 
de los contadores de todos los nodos) y 
del número de palabras distintas encon- 
tradas (número de nodos). 

Llevadas a la práctica todas estas con- 
sideraciones, tendríamos el siguiente 
programa: 


(X Saca una lista de las diferentes palabras que aparecen X) 
(X en un texto, junto con sus respectivas frecuencias. 


MaxLong = 30; 


type 
Palabra_t 


= 
Puntero_t = "Nodo_t; 
= 


Nodo_t record 
Palabra 
Contador 
Izquierdo, 
Derecho 

end; 


: Palabra_t; 
2: integer; 


2 Puntero_t 


array [1..MaxLongl of char; 


(X Máximo número de caracteres por palabra %X) 


(*X Posibles resultados de la comparación de dos palabras: *) 


Test_t = (Antes, Iguales, Despues); 


var 
Validas, 


Iniciales : set of char; (kx conjuntos de letras aceptables x) 


Raiz : Puntero_t; 
Fichero : text; 

Nombre, (* nombre del fichero de texto 

Nueva : Palabra_t; (kX palabra en fase de composición 
Letra 2 char; (*X letra recién leída 

EnMedio : boolean; (k ¿estamos en medio de una palabra? 


Longitud, (X* longitud de Nueva 

I, 

Diferentes, (* contador de palabras diferentes 
TotalPalabras: integer; (kx contador del total de palabras 


function Test (var A,B: Palabra_t): Test_t; 


(x Compara dos palabras alfabéticamente; puede devolver %*X) 
(x* los resultados Antes, Igual o Despues *x) 


var l: integer; Distintas: boolean; 
begin 
Distintas:= false; 
l:= 1; 
while (1 <= MaxLong) and not Distintas do 
if ACI] <> BC[1J then Distintas:= true 
else l:= 1+1; 


if Distintas then if ACI] < B[1J] then Test:= Antes 
else Test:= Despues 
else Test:= Iguales 


procedure InsertarEn (var P: Puntero_t); 
begin 
if P = nil then 
begin (Xx crear nueva ficha *X) 


aLtn EX yo 
begin 
Palabra := Nueva; 
Contador := 1; 
Izquierdo:= nil; 
Derecho := nil 
end 
end 
else 
with P” do 
begin 
case Test (Nueva, Palabra) of 
Iguales: Contador:= Contador + 1; 
Antes : InsertarEn (Izquierdo); 
Despues: InsertarEn (Derecho) 
end 


procedure Muestra_Arbol (P: Puntero_t);3 


(Xx Recorre y muestra el árbol apuntado por P en orden central, YX) 
(X es decir, en orden alfabético. Además, lleva la cuenta de x) 


begin 
if P <> nil then with P” do 
begin 
Muestra_Arbol (Izquierdo); 


write (Palabra); writeln (Contador:6);3 
TotalPalabras:= TotalPalabras + Contador; 
Diferentes ¿= Diferentes + 1; 


Muestra_Arbol (Derecho) 


(Xx Devuelve la letra L en minúscula, si procede %) 


a PASCAL 


case L of , 
?4..*7”*: Minuscula:= chr (ord(L) -— ord(*A”*) + ord(*a”)); 
UNS Minuscula:= *R”3 


“Ey Minuscula:= *é”; > 
0% Minuscula:= *ú”; 
else Minuscula:= L 
end 
end; 
A] A A A A *x) 
begin 


INICIALES == Ear...” "4,0 ,*4>,*6*,>0* 71 
Validas A A A A A A A AAA A 


Raiz 2= nil; 
Enmedio := false; 


write  (*Nombre del fichero: ?); 

readln (Nombre); 

assign (Fichero, Nombre); (kx Especifico del Turbo-Pascal *) 
reset (Fichero); 


while not eof (Fichero) do 
begin 
read (Fichero,Letra); Letra:= Minuscula (Letra); 


if not EnMedio then 
begin 
if Letra in Iniciales then 
begin 
EnMedio := true; 
Longitud := 1; 
Nueva [1]:= Letra 


end 
end (X par begin/end aparentemente innecesario...X) 
else 
if Letra in Validas then 
egin 
if Longitud < MaxLong then 
begin 
Longitud 2¿= Longitud + 1; 
Nueva [Longitudl:= Letra 
end 


end (X idem...*) 


else (X se acabó una palabra: X) 
begin 
Enmedio:= false; (X* completa Nueva con blancos: X) 
for l:= Longitud + 1 to MaxLong do Nueva [IJ:= ” ”; 
InsertarEn (Raiz); 


end 
end; 
close (Fichero); (xXx Específico del Turbo-Pascal %*x) 
ClrScr3 


writeln ("Lista por orden alfabético:”*)3 writeln; 
Diferentes:= 0; TotalPalabras:= 0; 

Muestra_Arbol (Raiz); 

witeln; 

writeln (*Palabras: ”,Diferentes,” Total: ”,TotalPalabras); 


pm N 


Como en otras ocasiones, se ha su- En el procedimiento InsertarEn, en lugar 
puesto que el compilador disponible es de pasar en la lista de parámetros el ele- 
el Turbo-Pascal a la hora de programar la mento a insertar, se ha utilizado directa- 
apertura y cierre del fichero. mente la variable global Nueva, a fin de 


ahorrar tiempo y espacio de memoria. 

El programa, tal como está, tiene algu- 
nas imperfecciones: 

— No se detectan las palabras repar- 
tidas en dos líneas por medio de guión. 

— Las vocales acentuadas, a la hora 


de clasificar palabras se consideran dis- 
tintas a las no acentuadas y posteriores 
a la Z. 


— No se detectan posibles errores en 
el acceso a los ficheros. 


(MODULA-2 2) 


L lenguaje es muy si- 
milar al PASCAL, por 
lo que nos limitare- 
mos a indicar las prin- 
cipales diferencias. 
Existen dos nuevos 
tipos básicos de da- 
tos CARDINAL y BITSET. 
CARDINAL, al igual que INTEGER, repre- 
senta número entero positivo. Se aplican 
los mismos operadores que a los enteros 


(+ para la suma, - para la resta, * para la 


multiplicación, DIV para división entera y 
MOD para el resto de la división). 

Las ventajas de usar CARDINAL en vez 
de INTEGER están en el hecho de decla- 
rar explícitamente que sólo se admiten 
valores positivos. De esta forma si se in- 
tenta asignar, como constante o como 
resultado de una operación, un número 
negativo el programa emitirá un mensa- 
je de error y detendrá su ejecución en 
vez de continuar, con los posibles resul- 
tados negativos para el funcionamiento 
del programa. 

Otra ventaja adicional es que por cues- 
tiones de representación interna de los 
datos las operaciones de multiplicación 
y la división son ligeramente más rápidas 
que si utilizáramos el tipo INTEGER, con el 
consiguiente ahorro de tiempo al realizar 
un gran número de estas operaciones. 

MODULA también permite expresiones 
mixtas en las que intervengan operado- 
res de ambos tipos. En este caso deberá 
utilizarse funciones de transferencia de 
tipo. Si ¡es de tipo INTEGER y c de tipo 
CARDINAL, la expresión ¡+ c sería erró- 


OTROS LENGUAJES 


nea, pero ¡+ INTEGER (Cc) sería de tipo IN- 
TEGER, y C + CARDINAL (í) del tipo CARDI- 
NAL. 

BITSET es un conjunto de enteros entre O 
y N - 1, donde N es una constante defi- 
nida por el compilador usado. Normal- 
mente N coincide con la longitud de la: 
palabra del ordenador utilizado, o de 
submúltiplo de ésta. Su principal utilidad 
se verá en el apartado dedicado a las 
funciones de bajo nivel. 

Las estructuras de control son muy simi- 
lares a las del PASCAL, excepto que se 
ha eliminado la palabra clave BEGIN. El 
comienzo se indica por la sentencia de 
la estructura y el final por END. 

Por ejemplo, una estructura del tipo 
WHILE se escribiría de la siguiente forma: 


WHILEi<0ODO 
DI 
li=1+ T; 

END 


La estructura REPEAT funciona igual que 
en PASCAL. 


REPEAT 
E =Z"X; 
=| + 1; 
UNTIL i>0 


Para bucles infinitos existe la sentencia 
LOOP. Esta realiza un bucle hasta que se 
ejecuta la instrucción EXIT que lo finaliza. 
La ventaja es que la instrucción EXIT pue- 
de estar colocada en cualquier parte 
dentro del bucle, no siendo necesario 
completarlo para salir de él. 


LOOP 
IFi¡= 5 THEN EXIT; 
i=t+ E 
END 
La instrucción FOR incluye una parte 
para indicar el paso con el que debe 
realizarse el bucle, igual que en el STEP 
del BASIC. 


FORi:=5to 20BY3DO 
j :=j+ a(í) 
END 
Incrementará la variable ¡de 3 en 3. 
En la instrucción IF se ha incluido, apar- 
te del ELSE, la instrucción ELSEIF, que per- 
mite anidar diversas estructuras de este 
tipo sin problemas de a quién pertenece 
cada ELSE, como surgen en algunos pro- 
gramas de PASCAL. 


IFi¡ < O THEN 
mayor; 
ELSEIF i > O THEN 
menor; 
ELSEIF ¡ = O THEN 
igual 

END 


En la sentencia CASE se ha incluido la 
parte ELSE, que se ejecuta sin ninguna de 
las otras selecciones ocurre, lo cual era 
uno de los defectos del PASCAL. 

El manejo de los arrays, o matrices, se 
ha hecho más flexible, de esta forma se 


puede declarar matrices de un tipo sin 
indicar sus dimensiones, con lo que se 
pueden pasar como parámetros a pro- 
cedimientos, simplificando así las cosas, 
por ejemplo, al diseñar diversos algorit- 
mos de ordenador, para los que antes 
había que realizar uno por cada matriz. 

También es más flexible la declaración 
de constantes, ya que ahora se permiten 
declaraciones compuestas que permi- 
tan funciones entre los operandos. 


CONST 
MAX = 5; 
SITIO = (MAX"5)+2; 


En cuanto los punteros, que son estruc- 
turas dinámicas de datos, con las que se 
pueden crear, o destruir según nos inte- 
rese, diversos tipos de datos. 

Estos se creaban o destruían en PASCAL 
mediante las sentencias NEW y DISPOSE. 
En MODULA las equivalentes son: 


NEW (p) = ALLOCATE (p,TSIZE(T)) 
DISPOSÉ (p) = DEALLOCATE (p,TSIZE(T)) 


Estas funciones pertenecen al módulo 
Storage. Por tanto, antes de utilizarse de- 
beremos incluir en el encabezamiento 
del módulo: 


FROM Storage IMPORT ALLOCATE, DEALLO 
CATE: 


El puntero vacío continúa siendo NIL. 


